home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / powerd / lib / powerd_lib.lha / PowerD / MidEStr.ass < prev    next >
Encoding:
Text File  |  1999-06-23  |  343 b   |  26 lines
  1. ; a0 - estr
  2. ; a1 - str
  3. ; d1 - start
  4. ; d0 - length
  5.  
  6.     xdef    _MidEStr
  7.  
  8. _MidEStr    add.l    d1,a1
  9.     move.l    a0,a2
  10.     moveq    #0,d1
  11.     move.w    (-4,a0),d1
  12.     cmp.l    d0,d1
  13.     bpl.s    .skip
  14.     move.l    d1,d0
  15. .skip    move.l    d0,d2
  16.     subq.l    #1,d0
  17. .loop    move.b    (a1)+,(a0)+
  18.     beq.s    .done
  19.     dbra    d0,.loop
  20.     clr.b    (a0)+
  21. .done    addq.w    #1,d0
  22.     sub.w    d0,d2
  23.     move.w    d2,(-2,a2)
  24.     move.l    a2,d0
  25.     rts
  26.